(symbols "makeMap" 'pico)

(de pico~makeMap "Entries"
  (let "Map" (box)
    (while (car "Entries")
      (put "Map"
        (pop '"Entries")
        (pop '"Entries") ) )
    "Map") )